home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / UPDNDAY.TAS < prev    next >
Text File  |  1992-05-25  |  1KB  |  30 lines
  1. {   UPDNDAY
  2.        Modification of UPDN by JK Leibovitz
  3.        Calculate & Plot daily U/D ratio as reported by DG
  4.        Chart shows price 50 & 200 day simple moving average &
  5.        CANSLIM Volume breakout line
  6.                - Denis W. Trover  chdb69a 5/13/92}
  7. #MAX_QUOTES 400
  8. if QUOTE_COUNT < 200 then return;
  9. if v[200]<1 then return;  {check to be sure file includes volume}
  10. UoD:array;
  11. Up:array;
  12. Down:array;
  13. Up[1]:=0; Down[1]:=0;
  14. MaUp:array;
  15. MaDown:array;
  16. for i := 2; i<= QUOTE_COUNT; i:=i+1;
  17. begin
  18.    if c[i] > c[i-1] then Up[i]:=v[i] else Up[i]:=0;
  19.    if c[i] < c[i-1] then Down[i]:=v[i] else Down[i]:=0
  20. end;
  21. MaUp:=Mov(Up,50,'S');
  22. MaDown:=Mov(Down,50,'S');
  23. UoD:=div(MaUp,MaDown);
  24. opengraph(3,-200,0);
  25. sizegraph(3,3,1);
  26. graph(1,'Price',MOV(c,50,'S'),'50 day SMA',MOV(c,200,'S'),'200 day SMA');
  27. graph(UoD,'U/D Ratio');
  28. graph(v,'Volume',mulby(MOV(v,50,'S'),1.5),'1.5 x 50 day SMA');
  29. closegraph();
  30.